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EDTSWFSPLBKT - split the current bucket 18-5e =1984 02:15:01 VAX-11 Bliss-32 V4.0-74 Page 1 
12280 8-13he 95:33:0 DISKSVMSMASTER: CEDT.SRC WESPLBKT.BLI:1> (1) 
1 ZTITLE ‘EDTSWFSPLBKT - split the current bucket’ 
§ MODULE EDTSWFSPLBKT ( ! Split the current bucket 
gDENT = 'v04-000' ' File: WFSPLBKT.BLI Edit: JBS1010 
= 


BEGIN 


RRR RRR A AREA AAAAAAAAAAAE RARER AEE AAA EAA AAAT AAA ATTARAEAAEREAAAAAREEEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE FURNISHED UNDER A LICENSE AND MAY BE USED AND corte 


Ssss 


_ 

ag 

; 5 5 

1. 3 - 

Py 8 8 1 x 

; O10 Pr 

5 e 

3 iP 0911 : * 

Ps % 

3 ig Big 1 Is * 

: 14 14 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WIT HE * 

3 15 015 1 !'* INCLUSI OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

; 16 b018 1 !* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

s 17 001 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

$ 18 dt : i: TRANSFERRED. * 

Py : ® 

3 0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

: ¢ 80 ¢ : ° CORPORATION. * 

Py .* * 

$ $¢ 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; 5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; @& 0026 1 !* * 

; 2? 0027 1 !« * 

3 $8 oo 3 : | lala hati tail in aaa teal aetna ina 

a $080 & 

; 1 0031 1 !++ 

: § O03§ } FACILITY: EDT -- The DEC Standard Editor 

; & 0034 1 ! ABSTRACT: 

j 5 Bo? 1! 

. § it) ; Split the current bucket. 

: ; sit : ENVIRONMENT: Runs at any access mode - AST reentrant 

: 40 9040 ; AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 

ey: 0042 1 ' MODIFIED BY: 

s 6 043 1! 

; (46 BRee 1 ! 1-001 = Original. DJS 23-Feb-1981. This module was created by 

3s 65 45 1! extrecs ing routine SPLIT_BUKT from module EDTWF. 

‘7 2 § 1! 1-008 = Regularize headers. JBS 19-Mar-1981 

2 4 4 1 ! 1-003 = Modify to use EDTSWORKIO. STS 15-Feb-1982 

:; 48 48 1°! 1-006 - Copy entire old bucket before split. STS 18-Feb-1982 

; 649 49 1 ! 1-005 = Don’t copy on 11‘s since it uses too much stack. STS 01-Mar-1982 

> = 50 1! 1- $ - change stack storage to peop storage. STS 05-Mar-1982 | 

a. SF 51 1! 1- - Add literals for callable EDT. STS 10-Mar-1982 

3 26 26 1 ! 1-008 - Give an error return if heap storage is exhausted. JBS 09-Jun-1982 

in? a 55 1! e's - Put code for edt$$wf_nxt_buf in Line. STS 11-oct-1982 

3 2¢ bee : 1-010 - Improve Listing appearance. JBS 20-Jun-1983 | 

: 56 056 1 | 
| 
| 

adie 
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FOT pur SPL OKT = split the current bucket 16-Se 
Declarations 14-Se 


SSBTTL Declarations’ 
TABLE OF CONTENTS: 


wn 
—OOon~ 


REQUIRE "EDTSRC:TRAROUNAM’; 


FORWARD ROUTINE 
EDTSS$wF_SPLTBUK; 


SoSEF 
—MN 


WE OONOUE wry 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 


Munn 
fooo°coo 


ct tt a ss ss sd ss 2 2s 1 SS 2 SS Ld 1 1 1 1 te 


see 
§ } MACROS: 
beck ! NONE 
0649 ! 
0650 ' EQUATED SYMBOLS: 
0651 ! 
$636 
065 EXTERNAL LITERAL 
0654 EDTS$K_PUT; 
0655 
0656 ! 
0657 ' OWN STORAGE: 
0658 ! 
0659 ! NONE 
0660 ! 
0661 ' EXTERNAL REFERENCES: 
04) ! 
6 : In the routine 


2 V4. 
:CEDT 


—_——— 


0-74 Page 
OS RCIMFSPLAKT BLY? (8 
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EDTSWFSPLBKT = split the current bucket 1-32 1984 02:15: VAX-11 Bliss-32 V 
EDTSSWF _SPLTBUK “ split the current bucket 1e-8ep-19 4 95:32:28 DISK KSVMGR STER: tt 1 °SeeSwFSPLBKT. pui.3% (33 


ree } ZSBTTL “EDTSSWF_SPLTBUK = split the current bucket’ 

re : GLOBAL ROUTINE EDTSS$WF_SPLTBUK ! Split the current bucket 

= 

668 1 

6 1 lee 

of ! FUNCTIONAL DESCRIPTION: 

672 1! This routine splits the current bucket at the current position into 
0675 1! two buckets. In the special case that we are at the end of the bucket 
0674 1! this is done simply by a eprendies anew bucket, otherwise, we must allocate 
0675 1! anew bucket and copy all the text from the current Life to the end of the 
bee : bucket into the new bucket. 

0678 1 ! FORMAL PARAMETERS: 
0679 1! 

0680 1! NONE 

0681 1! 

0682 1 ! IMPLICIT INPUTS: 

06835 1! 

0684 1! EDTS$A_CUR_BUF 
0685 1! EDT$$Z_ -WF _BESC 
9454 1! EDTSSA_ UK 
0687 1! EDTS$G_ ve ~ CURBUK 
0688 1! 

0689 1 ! IMPLICIT OUTPUTS: 
0690 1! 

0691 1! EDTS$G_WK_MODFD 
0692 1! EDTS$A_WK_BUK 
0693 1! 

0694 1 ! ROUTINE VALUE: 

0695 1! 

0696 1! 1 = OK 

0697 1! 0 = heap storage exhausted 
0698 1! 

0699 1 ! SIDE EFFECTS: 

0700 1! 

0701 1! NONE 

0702 1! 

0703 1 !-- 

0704 1 

145 BEGIN 

7 See NTESA Oe 

708 TSSAL ! allocate heap storage 

4 EDISSDEA” HEAP’ : NOVALUE, ! deallocate heap storage 
a EDTSSWF_NEWBUK : NOVALUS « 
brig EDTSSWF_ALOBUF : NOVALU 

zi EDTSSWF-MAKECUR : NOVALUE; 
far EXTERNAL : 

oe ait isan wf atatn : BLOCK C, BYTEJ, ! descriptor for the workfile record 

718 EDTS$6_ UK “CRS bux 

71 EDT$$A~CUR BUF : REF TBCB_BLOCK, ' Current text buffer control block 
0720 EDIS$A7UK K_BUuK ! Pointer to current bucket 
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PLBKT = split the current bucket 16 13 -1984 VA 
~SPLTBUK . split the current bucket 12-Sep-1984 93: 33: g DI 


F BLOCK CWF_BUKT_SIZE, BYTE] FIELD yg td 


RE 
$G_WK_CURBUK,~ er of the current bucket 
$G_WK_MODFD; i Flag indicating bucket was modified 


1 
t Remember the next bucket number, and the original one. 


OLD_NEXT = .EDTSS$A_WK_BUK pre _NEXT_BUKT); 
ORIG_BUKT = .EDTSS$G_WR_CURBUK 


‘+ 
- First check to see if we are at the end of a bucket. 


haat ated CTBCB_LINE_ADDR] EQL .EDTS$A_..4_BUK CWFB_ENDJ) 
14 


: 


tl We are at the end, just Link a new bucket to this one 


SUSI 
GEANLESELEALASLSSSVSARANASSSISALERTISSSLEALUNS 


ee a a ad ed a dd “ad = = a od a = te 


EDTSSA_WK_BUK CWFB_NEXT_BUKT] = NEW_BUKT = .EDTS$$G_WK_GRTSTBUK; 
EDTSSCALLWIO (EDTSK_PUT, .EDTSS$G_WK_CURBUK, EDTS$$Z_WF_DESC); 
i yet the bucket contents so that later we can extract a portion. 


uF 

SwF 

; 

4 

3 THEN 

_EDTSSA_UK_BUK CWFB_NEXT_BUKT] = .EDT$$G_WK_AVAIL 
I 


0 

0 

0 

0 

0 

0 

0744 BEGIN 

0745 

0746 IF (.EDTS$G_WK_AVAIL NEQ 0) 

0747 

0748 | 

0749 ELS 

o730 EDTSSA_WK_BUK CWFB_NEXT_BUKT] = .EDTS$G_WK_GRTSTBUK; 

O73 EDTS$G_WK_MODFD = 1; | 

O77 por seur NEWBUK (.0LD NEXT, .ORIG_BUKT) 

0739 ELSE 

136 BEGIN 

Ore i We are not at the end of a bucket. 

3544 ‘. Split the bucket into two, at the “beginning of the current Line. 

0761 

154 CAL 

76 OLD -BUKT. 

ons rs 
96 0766 LEN = pares WK BUK CWFB_END] = .EDTSSA_CUR BUF CTBCB_LINE_ADDR); | 
44 44 ED ISSA, WK_BUK”CWFB_END] =". EDTSSA_CUR_BUF CTBCB_LINE_ADDRIJ;~ 
43 169 IF (.EDTS$G_WK_AVAIL NEQ 0) 
01 771 EDTS$A_WK_BUK CWFB_NEXT_BUKT) = NEW_BUKT = .EDTS$$G_WK_AVAIL 
Oe 77 ELSE | 
0 

0 


SESE 


] 
N15 
EDTSwWFSPLBKT EDTSWFSPLBKT = split the current bucket 16-Sep-1984 02:15:01 VAX-11 Bliss-32 V4.0-74 Page 5) 
Oc +008 EDTS$wF_SPLTBUK = split the current bucket 13-808- 1382 95:33:01 DIEKSVMEHASTERSCEDT SRCTWFSPLBKT .OLI4* nat 
: 208 77 t- 
: 209 re | 
: 19 t 9 IF ( NOT EDTSSALO_HEAP (ZREF (WF_BUKT_SIZE), OLD_BUKT)) THEN RETURN (0); | 
: 3 7 ; va EDTSSCPY_MEM (WF_BUKT_SIZE, .EDTS$A_WK_BUK, .OLD_BUKT); 
: i? f 2 Now get a fresh buffer. 
: 16 7 : EDTSS$WF_ALOBUF (); 
: 21 7 EDT$$A_QK_BUK FFB _NEXT BUKT = .OLD_NEXT; 
; 18 07 § - EDTS$SA_WK-BUK CWFB-PREV-BUKT] = .ORIG_BUKT; 
: $9 0790 ; Copy a portion of the old buffer into the new buffer. 
; 2 Pp 0798 EDTSSCPY_MEM (.LEN, CHSPTR (.OLD _BUKT, .EDT$SA_CUR_BUF CTBCB_LINE_ADDRI), ! 
: $7 14$ ie CHSPTR (.EDTSS$A_WK_BUK, WFB_PIXED_SIZE)); 
; $2 Bo 32 ! Discard the copy of the old bucket. 
: $8 0799 : EDTSSDEA_HEAP (XREF (WF_BUKT SIZE), OLD.BUKT); 
; $28 0798 EDT$$A_WR_BUK CWFB_ENDJ~= .LEN + WFEB_FIRED_SIZE; 
: $3 0799 ; EDTS$G_WK_MODFD = T; 
: 0 0800 
: 231 0801 4 IF (.OLD_NEXT EQL 0) 
3 3 0802 3 THEN 
; 23 0803 4 BEGIN 
3 234 0804 4 
; 939 0805 3 IF ('OR1G_BUKT EQL .EDTS$A_CUR_BUF CTBCB_LAST_BUKT) 
: $3 0807 4 EDTS$A_CUR_BUF CTBCB_LAST_BUKT] = .NEW_BUKT; 
3; 238 0808 4 
; 239 0809 4 END 
: 240 0810 3 
: 241 0811 4 EGIN 
; 4@ O82 4 EDTSS$WF_MAKECUR (.OLD_NEXT); 
> 26 0813 4 EDT$$A_QK_BUK CWFB_PREV_BUKT] = .NEW_BUKT; 
is 266 0814 4 EDTS$G_WK_MODFD = T; 
> 245 0815 ND; 
> 246 0816 
: 267 0817 EDTSSWF_MAKECUR (.0RIG_BUKT) 
: 248 0818 END; 
3 iH 0819 
: 250 0820 RETURN (1); 
3 do" 0821 1 END; ! of routine EDTSSWF_SPLTBUK 


-TITLE EDTSWFSPLBKT EDTSWFSPLBKT - split the current b 
-IDENT \V04-000\ 


| 
-EXTRN EDTS$K_PUT, EDTSSALO_HEAP 
-EXTRN EDTSSDEA_HEAP, EDTSSCALLWIO 
-EXTRN EDTSSWF_REWBUK, EDTSSWF_ALOBUF 
-EXTRN EDTSSWF-MAKECU 
-EXTRN EDTS$Z_QF_DESC, EDTSS$G_WK_AVAIL | 
-EXTRN EDTS$$G~WK~GRTSfBUK | 
.EXTRN EDTSSACUR_BUF, EDTSSA_WK_BUK | 
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OFFC 00000 
g SOERSRNE. BB Ss 
e # 
4 000000006 8 : 1p 
2 000000006 3 : 00 ; 
AO ei D| j 
o-6058 ‘ 
62 000000006 00 8) ; 1$: 
38 dD 047 2$: 
et 
a0 $1 09 00 
Br Al 5 
2$ 000000006 00 dO 4$: 
000000006 3 5$: 
00 000000006 i 43 
« of GE 
Hee 
3 0200 28 = 
A D 
i 
ee 


Bedton 
-seo- 
1 =Sep-1 


Be 98:23:23 


ENTRN 


-PSECT 


VAX-11 Bliss- 
DISKSVMSMASTE 


EDT$$G_WK_CURBUK 
EDTS$$G_WK-MODFD 


-EDTSCODE,NOWRT, SHR, 


32 V4. 
R 


EDTS$A_CUR_BUF, R11 
EDTSSA_WK_BUK, R10 


DfS$A_wk_BUK, RO 
(80), R3 

R3), OLD_NEXT 
DT$$G_WK-CURBUK, R4 
RTG_BukT 


$ G_WR_AVAIL, R2 
$A-CUR_BUF, R1 
», S¢(rOoy 


hom & z= 
eov7v~ oO 
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MoD DU- Mm wn 
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Ww 
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oo 
DOMMES DIOIOS 


TS$$G_WK_GRTISTBUK, (R3) 


#1, EDTS$C_wK_MODFD 
{G_BUKT 


D_REXT 
: EDTSSWF_NEWBUK 


fee = 
~~ 


gs WK_BUK, RO 
R 
EDT SSuP ALOBOF 


(R 
sot: 
i ibe BRO) 
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«ENTRY EDTSSWF SPLTBUK, Save R2,R3,R4,R5,R6,R7,RB,- 
R10,R11 
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EDTSWFSPLBKT DISWFSPLBKT = split the current bucket 16-50 Sep-1 :0 VAX-11 Bliss-32 V 4300 
abet EO Tear SPL TBUK "a split the current bucket 1 ata ri 96: 33: 9 NER SVMCMASTE TER: ay eee Sur SPLBKT. BLI; Pqee 
F 00001 SHAB OLD_BUKT : 0797 
04 AE : af i D4 MOVZWL 1 312 4(SP) : 
AE F OOODA P'SHAB : 
000000006 Q 02 F DD CALLS are HE AP : 
6A p Es MOVL ft R, RO + 0798 
Be A A7 7 MOVAB 3 
000000006 0 of D E MOVL 5 BbTEse. ue _MODFD + 0799 
9 D f TSTL NEXT : 0801 
5 65 08 Ob0F SOvL eDrss4 CUR_BUF : 0805 
58 10 ao HY 09 f FA cHezV , #18, 18(ROS, RORIG. BUKT ; 
10 Ao 46 BO 001 HOV i BUKT, 16(RO) + 0807 
1 11 091 BRB 8 + 0801 
3 DD 00108 7$: PUSHL D_NEXT + 0812 
000000006 99 1 FB 10A CALLS sos TSSuF oRAKECUR ; 
oA dO 00111 MOVL ne RO + 0813 
60 6 BO 00114 MOVW New BU : 
000000006 00 Or DO 00117 MOVL ite WK _MODFD + 0814 
8 DD OO11E 8S: PUSHL oni : 0817 
000000006 90 ot FB 001 CALLS EDT Ssur _MAKECUR ; 
0 1 DO 00127 9$: MOVL Ag RO + 0820 
04 0012A RET : 
50 D4 00128 108: CLRL = RO + 0821 
04 00120 RET ; 
; Routine Size: 302 bytes, Routine Base: _tvI$CODE + 0000 


: 338 0898 1 1<BLF/PAGE> 


16 
EDTSWF SPLBKT ERT eyE SPL OKT - split the current bucket 1b-se -1984 02:15:0 VAX-11 BLliss-32 V4.0-74 8 
fb e008 EDTSSWF_SPLTBUK = spiit the current bucket 12-88-1382 95:33:08 DISKSVMSMAS TER: CEDT.SRCJWFSPLBKT.BLI; riz (4) 
: 386 0835 } END ! of module EDTSWFSPLBKT 
; $ 6 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 302 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
ime ee a eh ee Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 31 40 00:00.2 
3 Ett Matter ttet te CTS.L32;1 2 1 36 7 00:00.1 
3 COMMAND QUALIFIERS 
; Pe ee ee NE SEAS APT LEP IITA EINE AL SO. EEE LENT OR ISR IO 1 LER! MSRC$: WF SPLBKT.BLI/UPDATE=(ENHS: WF SP 
3 gize: 302 code + 0 data bytes 
; Run Time: 09:1 9 
5 oe Time $6 ‘ 
3 Lines/CPU Min 939 
3 Lexenes/CPU-Rin: 10256 
3 120 pages 


cnet he ny Complete 
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